BBS in a Box 4/BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso/Files/Hyper/A-An/Address Master.cpt/AddressMaster/AddressMaster/background_2747.txt

Text File | 1988-02-27 | 16.3 KB | 695 lines

-- background: 2747 from stack: in
-- bmap block id: 3380
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on openCard
  put SortItems (bkgnd field "Keyword") into bkgnd field "Keyword"
  put the abbr date into T1
  put line one of bkgnd field "Date Established" into T2
  convert T2 to seconds
  convert T1 to seconds
  subtract T2 from T1
  divide T1 by 86400
  put T1 into line two of bkgnd field "Date Established"
  put card field "Mainkeyword" of card "front" into bkgnd field "area-of-int"
end openCard



-- part 46 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=76 top=269 right=283 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: sorted


-- part 2 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=431 top=19 right=35 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date


-- part 3 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=490 top=319 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect dissolve very fast
  go to next card
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=423 top=319 right=342 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go to prev card
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=455 top=308 right=342 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 21701 / 21701
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go home
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=187 top=320 right=342 bottom=299
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Address Master
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go card "front"
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=13 top=295 right=327 bottom=45
-- title width / last selected line: 0
-- icon id / first selected line: 23270 / 23270
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: select areas
----- HyperTalk script -----
on mouseUp

  hide bkgnd field "Com"
  hide bkgnd field "comments"
  ZoomRect the rect of bkgnd button "select areas", the rect of bkgnd field "area-of-int"
  show bkgnd field "area-of-int"
  show bkgnd button "Quit areas of interest"
  put SortItems (bkgnd field "area-of-int",true) into bkgnd field "area-of-int"

end mouseUp



-- part 25 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=340 top=261 right=281 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit areas of interest
----- HyperTalk script -----
on mouseUp

  hide bkgnd button "Quit Areas of interest"
  hide bkgnd field "area-of-int"
  ZoomRect the rect of bkgnd field "area-of-int", the rect of bkgnd button "select areas"
  show bkgnd field "Com"
  show bkgnd field "comments"
  put SortItems (bkgnd field "Keyword") into bkgnd field "Keyword"

end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=77 top=307 right=327 bottom=104
-- title width / last selected line: 0
-- icon id / first selected line: 17481 / 17481
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Card
----- HyperTalk script -----
on mouseUp

  doMenu New Card
  put the abbr date into line one of bkgnd field "Date Established"
  put 0 into line two of bkgnd field "Date Established"
  put "Date established" into line one of bkgnd field "Established"
  put "Age of card" into line two of bkgnd field "Established"
  put "    Business" into line two of bkgnd field "BusAdd"
  put "    Adress" into line three of bkgnd field "BusAdd"
  put "     Home" into line two of bkgnd field "HomAdd"
  put "    Adress" into line three of bkgnd field "HomAdd"
  put "Name" into line one of bkgnd field "Nam"
  put "Family" into line one of bkgnd field "Fam"
  put "Home Phone" into line one of bkgnd field "HomPho"
  put "Business Phone" into line one of bkgnd field "BusPho"
  put "Keywords" into line one of bkgnd field "KeyWor"
  put "     * * *  COMMENTS  * * *" into line one of bkgnd field "Com"
  put card field "Mainkeyword" of card "front" into bkgnd field "area-of-int"

end mouseUp



-- part 32 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=19 top=242 right=289 bottom=57
-- title width / last selected line: 0
-- icon id / first selected line: 12257 / 12257
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseUp


  global connect

  answer "How do you want me to find this person ?" with "Keyword" or "Letter" or "Name"
  put 2 into connect

  -----  Search by name  -----------------------------------------------

  if it = "Name" then
    ask "Enter first and/or last name, please :"
    if it = "" then
      answer "        **  No names found !  **"
      put 0 into connect
      exit mouseUp
    else
      find it in field "name"
      if the result is not empty then
        answer "        **  No names found !  **"
        put 0 into connect
        exit mouseUp
      end if
      put 0 into connect
      exit mouseUp
    end if
  end if

  --*********************************************************************
  -----  Search by area  -------------------------------------------

  if it = "Keyword" then
    go card "front"
    ZoomRect the rect of bkgnd button "Find", the rect of card field "Mainkeyword"
    show card field "Mainkeyword"
    show card button "Quit Find"
    put 2 into connect
    exit mouseUp
  end if

  --********************************************************************

  -----  Search by a single letter  ------------------------------------

  if it = "Letter" then
    answer "Search by 1st ltr of first or last name?" with "first" or "last"
    put 2 into connect
  end if


  --*********************************************************************

  -----  Search by a single letter of their first name  ----------------

  if it = "first" then
    ask "Enter the first letter of the first name"
    If it = "" then
      answer "        **  No names found !  **"
      exit mouseUp
    else
      put 1 into numbR
      set the lockScreen to true
      set the cursor to 4
      repeat number of cards times
        if first character of first word of line one of field "Name" is it then
          put first line of field "Name" into line numbR of card field "FoundName" of card "front"
          add 1 to numbR
          go next
        else
          go next
        end if
      end repeat
    end if

    go card "front"
    set the lockScreen to false
    if line one of card field "FoundName" = "" then
      answer "      No matches found !"
      exit mouseUp
    else
      ZoomRect the rect of bkgnd button "Find", the rect of card field "FoundName"
      show card field "FoundName"
      show card button "Quit Find"
      exit mouseUp
    end if
  else

    --******************************************************************

    ask "Enter the first letter of the last name"
    If it = "" then
      answer "        **  No names found !  **"
      exit mouseUp
    else
      put 1 into numbR
      set the lockScreen to true
      set the cursor to 4
      repeat number of cards times
        if first character of last word of line one of field "Name" is it then
          put first line of field "Name" into line numbR of card field "FoundName" of card "front"
          add 1 to numbR
          go next
        else
          go next
        end if
      end repeat
    end if

    go card "front"
    set the lockScreen to false
    if line one of card field "FoundName" = "" then
      answer "      No matches found !"
      exit mouseUp
    else
      ZoomRect the rect of bkgnd button "Find", the rect of card field "FoundName"
      show card field "FoundName"
      show card button "Quit Find"
      exit mouseUp
    end if
  end mouseUp



-- part 37 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=76 top=34 right=50 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Name


-- part 38 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=76 top=52 right=68 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Family


-- part 39 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=76 top=70 right=125 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Home Address


-- part 40 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=162 top=127 right=158 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Home Phone


-- part 41 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=76 top=160 right=215 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Business Address


-- part 42 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=183 top=217 right=248 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Business Phone


-- part 43 (field)
-- low flags: 00
-- high flags: 2007
-- rect: left=340 top=54 right=281 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Comments


-- part 45 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=133 top=250 right=281 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Keyword


-- part 47 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=340 top=34 right=262 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: area-of-int
----- HyperTalk script -----
on mouseUp

  -- compute line number of the mouseclick
  get item 2 of the clickloc - item 2 of the rect of me + scroll of me
  put 1 + it div the textHeight of me into lineNum

  -- highlight line, use magic button
  set hilite of bkgnd button "hiliter2" to false
  get item 2 of rect of me + lineNum * textHeight of me - scroll of me
  put 1 + it - textHeight of me div 2 into v
  show bkgnd button "hiliter2" at item 1 of loc of bkgnd button "hiliter2",v -- this lights up the button
  set hilite of bkgnd button "hiliter2" to true -- make button black

  -- put data selected into sort field
  if line lineNum of bkgnd field "area-of-int" = "" then
    set hilite of bkgnd button "hiliter2" to false
  else
    put " " & line lineNum of bkgnd field "area-of-int" after bkgnd field "Keyword"
    set hilite of bkgnd button "hiliter2" to false
    hide bkgnd button "hiliter2"
  end if

end mouseUp




-- part 24 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=341 top=61 right=76 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hiliter2


-- part 50 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=353 top=294 right=327 bottom=379
-- title width / last selected line: 0
-- icon id / first selected line: 12501 / 12501
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cut Card
----- HyperTalk script -----
on mouseUp

  answer "Are you sure you want to delete this card ?" with "OK" or "Cancel"
  if it = "OK" then
    doMenu "Delete Card"
  end if

end mouseUp



-- part 51 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=213 top=283 right=311 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Date Established


-- part 52 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=124 top=283 right=311 bottom=211
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Established


-- part 53 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=2 top=160 right=215 bottom=74
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: BusAdd


-- part 54 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=2 top=70 right=125 bottom=74
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: HomAdd


-- part 56 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=2 top=52 right=68 bottom=74
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Fam


-- part 58 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=2 top=34 right=50 bottom=74
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Nam


-- part 60 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=76 top=127 right=145 bottom=160
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: HomPho


-- part 62 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=76 top=217 right=235 bottom=181
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: BusPho


-- part 64 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=76 top=250 right=268 bottom=131
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: KeyWor


-- part 68 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=340 top=34 right=55 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 18
-- part name: Com


-- part 69 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=15 top=19 right=35 bottom=61
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Time